(decode-coding-inserted-region): Use car

of the return value of find-operation-coding-system.

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 12419ee46813f793949d04b240dfbc024cf28ca2..a82ead3999a92489ef1b02d8e51ad75d48f3b066 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1850,9 +1850,9 @@ of the function `insert-file-contents'."
            (setq coding (funcall set-auto-coding-function
                                  filename (- (point-max) (point-min)))))
        (or coding
-           (setq coding (find-operation-coding-system
-                         'insert-file-contents
-                         filename visit beg end replace)))
+           (setq coding (car (find-operation-coding-system
+                              'insert-file-contents
+                              filename visit beg end replace))))
        (if (coding-system-p coding)
            (or enable-multibyte-characters
                (setq coding